определить i:слово;
определить s:символ;
начало
       для (i=1>5) делать
       начало
              печать("Введите символ=");
              чтение(s);
              новаястрока;
       если (s>=97) тогда
            начало
            если (s<=122) тогда
                начало
                    s=s-32;
              {  конец}
            конец
          если (s>=160) тогда
             начало
             если (s<=175) тогда
                начало
                  s=s-32;
                конец
             конец
          если (s>=224) тогда
             начало
               если (s<=239) тогда
                 начало
                    s=s-80;
                 конец
             конец
             печать(s);новаястрока;
       конец
конец.





